home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / systems / atari / birkhahn-metafont-packed-disks / mf27-2_2e-disk2.zoo / inputs / wasy.lzs / WASYFONT.ORI < prev    next >
Text File  |  1991-03-25  |  5KB  |  144 lines
  1. \font\tenwasy = wasy10
  2. \font\ninewasy = wasy9
  3. \font\eightwasy = wasy8
  4. \font\sevenwasy = wasy7
  5. \font\fivewasy = wasy5
  6. \newfam\wasyfam
  7. \newcount\wasyfamcount
  8. \wasyfamcount=\wasyfam \multiply\wasyfamcount by 256
  9. \def\wasy{\fam\wasyfam\tenwasy}
  10. \textfont\wasyfam=\tenwasy
  11. \scriptfont\wasyfam=\sevenwasy
  12. \scriptscriptfont\wasyfam=\fivewasy
  13. %%%%%% special macro
  14. \def\overstrike#1#2{{\setbox0\hbox{$#2$}\hbox to \wd0{\hss
  15.     $#1$\hss}\kern-\wd0\box0}}
  16. %%%%%% special symbols
  17. \def\male{\hbox{\wasy\char"1A}}
  18. \def\female{\hbox{\wasy\char"19}}
  19. \def\currency{{\wasy\char"1B}}
  20. \def\phone{{\wasy\char"07}}
  21. \def\recorder{{\wasy\char"06}}
  22. \def\clock{{\wasy\char"1C}}
  23. \def\lightning{{\wasy\char"12}}
  24. \def\pointer{{\wasy\char"09}}
  25. \def\RIGHTarrow{{\wasy\char"11}}
  26. \def\LEFTarrow{{\wasy\char"10}}
  27. \def\UParrow{{\wasy\char"4B}}
  28. \def\DOWNarrow{{\wasy\char"4C}}
  29. \def\AC{\hbox{\kern0.5pt\wasy\char"3A\kern0.5pt}}
  30. \def\HF{\lower0.9pt\hbox to 0pt{\kern0.5pt\wasy\char"3A\hss}%
  31.         \raise0.9pt\hbox{\kern0.5pt\wasy\char"3A\kern0.5pt}}
  32. \def\VHF{\hbox{\wasy\char"40}}
  33. \def\Box{\hbox{\wasy\char"32}}\let\Square\Box
  34. \def\XBox{\hbox{\wasy\char"34}}
  35. \def\Diamond{\hbox{\wasy\char"33}}
  36. \def\hexagon{\hbox{\wasy\char"37}}
  37. \def\pentagon{\hbox{\wasy\char"44}}
  38. \def\octagon{\hbox{\wasy\char"38}}
  39. \def\varhexagon{\hbox{\wasy\char"39}}
  40. \def\hexstar{\hbox{\wasy\char"41}}
  41. \def\varhexstar{\hbox{\wasy\char"42}}
  42. \def\davidsstar{\hbox{\wasy\char"43}}
  43. \def\diameter{\hbox{\wasy\char"1F}}
  44. \def\invdiameter{\hbox{\wasy\char"15}}
  45. \def\varangle{\hbox{\wasy\char"1E}}
  46. \def\lozenge{\hbox{\wasy\char"35}}
  47. \def\kreuz{\hbox{\wasy\char"36}}
  48. \def\smiley{\hbox{\wasy\char"01}}
  49. \def\frownie{\hbox{\wasy\char"04}}
  50. \def\blacksmiley{\hbox{\wasy\char"02}}
  51. \def\sun{\hbox{\wasy\char"03}}
  52. \def\checked{\hbox{\wasy\char"08}}
  53. \def\bell{\hbox{\wasy\char"0A}}
  54. \def\eighthnote{\hbox{\wasy\char"0B}}
  55. \def\quarternote{\hbox{\wasy\char"0C}}
  56. \def\halfnote{\hbox{\wasy\char"0D}}
  57. \def\fullnote{\hbox{\wasy\char"0E}}
  58. \def\twonotes{\hbox{\wasy\char"0F}}
  59. \def\brokenvert{\hbox{\wasy\char"7C}}
  60. \def\therefore{\hbox{\wasy\char"05}}
  61. \def\Circle{\hbox{\wasy\char"23}}
  62. \def\CIRCLE{\hbox{\wasy\char"20}}
  63. \def\Leftcircle{\hbox{\wasy\char"49}}
  64. \def\LEFTCIRCLE{\hbox{\wasy\char"47}}
  65. \def\Rightcircle{\hbox{\wasy\char"4A}}
  66. \def\RIGHTCIRCLE{\hbox{\wasy\char"48}}
  67. \def\LEFTcircle{\hbox to 0pt{\wasy\char"47\hss}\hbox{\wasy\char"23}}
  68. \def\RIGHTcircle{\hbox to 0pt{\wasy\char"48\hss}\hbox{\wasy\char"23}}
  69. %%%%%% astronomy
  70. \def\aries{\hbox{\wasy\char"17}}
  71. \def\ascnode{\hbox{\wasy\char"13}}
  72. \def\descnode{\hbox{\wasy\char"14}}
  73. \def\fullmoon{\hbox{\wasy\char"23}}
  74. \def\newmoon{\hbox{\wasy\char"20}}
  75. \def\leftmoon{\hbox{\wasy\char"24}}
  76. \def\rightmoon{\hbox{\wasy\char"25}}
  77. \def\astrosun{\hbox{\tensy\char"0C}}
  78. \def\mercury{\hbox{\wasy\char"27}}
  79. \def\venus{\raise0.2ex\hbox{\wasy\char"19}}
  80. \def\earth{\lower0.3ex\hbox{\wasy\char"26}}
  81. \def\mars{\lower0.2ex\hbox{\wasy\char"1A}}
  82. \def\jupiter{\hbox{\wasy\char"28}}
  83. \def\saturn{\hbox{\wasy\char"29}}
  84. \def\uranus{\hbox{\wasy\char"2A}}
  85. \def\neptune{\hbox{\wasy\char"2B}}
  86. \def\pluto{\hbox{\wasy\char"30}}
  87. %%%%%% APL characters
  88. \def\APLstar{{\hbox{\wasy\char"45}}}
  89. \def\APLlog{{\hbox{\wasy\char"16}}}
  90. \def\APLbox{{\hbox{\wasy\char"7E}}}
  91. \def\APLup{{\hbox{\wasy\char"00}}}
  92. \def\APLdown{{\hbox{\wasy\char"46}}}
  93. \def\APLinput{{\hbox{\wasy\char"7D}}}
  94. \def\APLcomment{{\hbox{\wasy\char"7F}}}
  95. \def\APLinv{{\hbox to 0pt{\tensy\char"04\hss}\APLbox}}
  96. \def\APLuparrowbox{{\hbox{\wasy\char"6E}}}
  97. \def\APLdownarrowbox{{\hbox{\wasy\char"6F}}}
  98. \def\APLleftarrowbox{{\hbox{\wasy\char"70}}}
  99. \def\APLrightarrowbox{{\hbox{\wasy\char"71}}}
  100. \def\notbackslash{\overstrike{\backslash}{-}}
  101. \def\notslash{\overstrike{/}{-}}
  102. \def\APLnot#1{\overstrike{\sim}{#1}}
  103. \def\APLcirc#1{\overstrike{\circ}{#1}}
  104. \def\APLvert#1{\overstrike{\vert}{#1}}
  105. \def\APLminus{\raise0.7ex\hbox{$-$}}
  106. %%%%%% diagrams
  107. \def\photon{\hbox{\wasy\char"3A\char"3A\char"3A\char"3A}}
  108. \def\gluon{\hbox{\wasy\char"51\char"50\char"50\char"50%
  109.     \char"50\char"50\char"50\char"52}}
  110. %%%%%% math characters
  111. \def\Bowtie{\hbox{\wasy\char"31}}
  112. \def\leftturn{\hbox{\wasy\char"22}}
  113. \def\rightturn{\hbox{\wasy\char"21}}
  114. %%%%%% math operators as mathchars
  115. \def\wasymathchardef#1#2{%
  116.     \count"FF=\wasyfamcount
  117.     \advance\count"FF by"#1
  118.     \mathchardef#2\count"FF}
  119. \wasymathchardef{302C}{\lhd}
  120. \wasymathchardef{302E}{\rhd}
  121. \wasymathchardef{3010}{\LHD}
  122. \wasymathchardef{3011}{\RHD}
  123. \wasymathchardef{302D}{\unlhd}
  124. \wasymathchardef{302F}{\unrhd}
  125. \wasymathchardef{303C}{\sqsubset}
  126. \wasymathchardef{303D}{\sqsupset}
  127. \wasymathchardef{303E}{\apprle}
  128. \wasymathchardef{303F}{\apprge}
  129. \wasymathchardef{301D}{\varpropto}
  130. \wasymathchardef{0018}{\invneg}
  131. \wasymathchardef{303B}{\leadsto}
  132. \wasymathchardef{2023}{\ocircle}
  133. \wasymathchardef{3016}{\logof}
  134. \wasymathchardef{1072}{\varint}
  135. \wasymathchardef{1073}{\iint}
  136. \wasymathchardef{1074}{\iiint}
  137. \wasymathchardef{1075}{\varoint}
  138. \wasymathchardef{1076}{\oiint}
  139. %
  140. %%%%%% new definitions
  141. %
  142. \def\newpropto{\let\propto\varpropto}
  143. \def\newint{\let\int\varint \let\oint\varoint} % default limits
  144.